	PRO NEW_IC,time,Nproc,dir
; Convert last frame 'time' into a new initial condition
; dir is the directory where you want the new i.c.
; NOTE: dir CAN'T BE: '' and time is '00XX' form

for j = 0,Nproc-1 do begin
last_file = 'a_' + time + '_00' + string(j,format='(i1)')
if j gt 9 then last_file = 'a_' + time + '_0' + string(j,format='(i2)')
new_file = 'a_' + '0000' + '_00' + string(j,format='(i1)')
if j gt 9 then new_file = 'a_'+'0000' + '_0' + string(j,format='(i2)')
file_copy,last_file,dir+new_file 
endfor

for j = 0,Nproc-1 do begin
last_file = 'f_' + time + '_00' + string(j,format='(i1)')
if j gt 9 then last_file = 'f_' + time + '_0' + string(j,format='(i2)')
new_file = 'f_' + '0000' + '_00' + string(j,format='(i1)')
if j gt 9 then new_file = 'f_'+'0000' + '_0' + string(j,format='(i2)')
file_copy,last_file,dir+new_file
endfor

for j = 0,Nproc-1 do begin
last_file = 'b_' + time + '_00' + string(j,format='(i1)')
if j gt 9 then last_file = 'b_' + time + '_0' + string(j,format='(i2)')
new_file = 'b_' + '0000' + '_00' + string(j,format='(i1)')
if j gt 9 then new_file = 'b_'+'0000' + '_0' + string(j,format='(i2)')
file_copy,last_file,dir+new_file
endfor

for j = 0,Nproc-1 do begin
last_file = 'u_' + time + '_00' + string(j,format='(i1)')
if j gt 9 then last_file = 'u_' + time + '_0' + string(j,format='(i2)')
new_file = 'u_' + '0000' + '_00' + string(j,format='(i1)')
if j gt 9 then new_file = 'u_'+'0000' + '_0' + string(j,format='(i2)')
file_copy,last_file,dir+new_file
endfor

print,'======================================================================='
print, 'You have new initial conditions man!'
print,'======================================================================='
end
